﻿Option Explicit On
Option Strict On

Imports System.Data
Imports System.Data.OleDb

Public Class FormBorrarUsuario

    Dim _Usuario As Usuario
    Dim UsuarioComprobar As OleDbDataReader

    Private Sub btn_Aceptar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_Aceptar.Click

        Dim ConsultaUsuario As String = ""
        Dim ConsultaPassword As String = ""
        Dim ComprobarUsuario As OleDbDataReader
        Dim ComprobarPassword As OleDbDataReader
        _Usuario = New Usuario

        ComprobarUsuario = _Usuario.ConsultarBD("Nombre", "Nombre = '" & tb_Usuario.Text & "'")
        ComprobarPassword = _Usuario.ConsultarBD("Contraseña", "Nombre = '" & tb_Usuario.Text & "'")

        While ComprobarUsuario.Read
            ConsultaUsuario = CStr(ComprobarUsuario(0))
        End While

        While ComprobarPassword.Read
            ConsultaPassword = CStr(ComprobarPassword(0))
        End While

        If tb_Usuario.Text = ConsultaUsuario And tb_Password.Text = ConsultaPassword Then
            _Usuario.BorrarDeBD(tb_Usuario.Text)
        Else

        End If
    End Sub
End Class